home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / dev / gcc / ixemul_src.lha / ixemul-41.0 / stack / link_a5_0_f.c < prev    next >
C/C++ Source or Header  |  1995-05-23  |  319b  |  28 lines
  1. #include <bases.h>
  2.  
  3. asm("
  4.     .text
  5.     .even
  6.     .globl    ___link_a5_0_f
  7.     .globl    ___sub_0_sp_f
  8.  
  9. ___link_a5_0_f:
  10.     movel    sp@+,a0
  11.     cmpl    "A4(___stk_limit)",sp
  12.     jcc    l0
  13.     jbsr    l2
  14. l0:    link    a5,#0:W
  15.     jmp    a0@
  16.  
  17. ___sub_0_sp_f:
  18.     movel    sp@+,a0
  19.     cmpl    "A4(___stk_limit)",sp
  20.     jcc    l1
  21.     jbsr    l2
  22. l1:    jmp    a0@
  23.  
  24. l2:    clrl    d0
  25.     clrl    d1
  26.     jra    ___stkext_f
  27. ");
  28.